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PASRTL.SRCJPASLIB.REQ;1 (1) 


oe 


3 
15- Sep-1984 i 93: 3: 243 VAX-11 Bliss 
15-Sep-1984 22:48:34 $255$DUA28: 
! Pascal Run-Time Library s spec inte macros and symbols 
File: PASLIB.REQ, Edit: SBL1002 


i eee eeeeerereeererererereeeeeeeeeeneeeeeterereeereteneerereeereeeeeeereeerene 


‘e COPYRIGHT (c) 1978. 1980, 1982, 1984 
!® DIGITAL EQUIPMEN) “RPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED 


ie THIS i arcle ss FURNISHED naeee a ab 1CENSE AND MAY BE ay | AND rgd ba 
; TERMS OF SUCH LICEN THE 


ae 

® 

= 

® 

® 

® 

an 

® 

t 

i® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
* 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT cs 
® 

® 

2 

w 

* 

® 

® 

& 


NOTIC 
‘* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
'® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RSPR SSSESLSSISE TERETE TERETE SETTER SEES ECCS SCS SESE C SESS SECC SEER SE ES, 
i 


Author: Steven B. Lionel, 1-April-1981 
7: 1-001 = Original. SBL 1-April-1981 
i 
lo 


1-002 - 1 pe a ney name of FCB structure due to use of fieldsets. 
-Feb-1 


'¢ 

' This file is the master source for PASLIB.L32. 

! It REQUIRES all of the .REQ and .B32 tiles which 

i _compr ise PASLIB. This file is then precompiled into PASLIB.L32. 
SWITCHES ADDRESSING_MODE (EXTERNAL=GENERAL, NONEXTERNAL=WORD_RELATIVE); 
LIBRARY ‘RTLSTARLE'; ' SYSSLIBRARY:STARLET.L32 


REQUIRE ‘RILIN:PASPFV'; ' Pascal File Variable (PFV$) definitions 


13 
16-Sep-1984 01:18:43 = VAX=11 Bliss-32_ V4.0-74 p 
13860-1980 93:48:86 3 age 2 


- -$255$DUA28: CPASRTL.SRCIJPASPFV.REQ; 1 (1) 
E ROOGS ' Pascal File Variable (PFV$) field definitions 
is pane File: PASPFV.REQ, Edit: $8L1001 
: Ao 4 PORE RRA REA AE RHEE AAA AEREEAR EERE AHEEREHAE HEE TE AeA ReAKee Kee eee reese 
; OR 's * 
; kROOSO O '® COPYRIGHT (c) 1978, 1980, 1982, 1984 8B . 
; ROOS1 O ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 mes 8 * ALL RIGHTS RESERVED. . 
3 ‘® ® 
; ROOSS O '‘® THIS SOFTWARE aS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
; kROOSS O 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; kRO0S6 O '® INCLUSION OF THe ABOVE cop yRs CHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; kO057 O ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHI:-RWISE MADE AVAILABLE TO ANY * 
; kOOS8 O '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: etd ? TRANSFERRED, * 
3 ‘® ® 
; RO0061 O 'e He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 i's 0 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; se 3 * CORPORATION, * 
. 0064 .* * 
; kRO065 O '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; ROO66 O '# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; kROO67 O 'e * 
; ROO68 O '® * 
; kROO69 O SRR ERR A REAR ARERR ERO RE EERE A RAAT AAAS 
; kROO70 O : 
: site Author: Steven B. Lionel, 1-April-1981 
F Roors 0 ! 1-001 = Original. SBL 1-April-1981 
; 0074 0 len 
; k0075 O 
; kROO76 O '¢ 
; kO0O77 O i The Pascal File Variable (PFV) is a dynamically allocated block whose 
; kOO78 O i address is passed to the Run-Time Library to uniquely identify a file. 
; kRO0079 O i For more information, see the VAX-11 Language Support Procedures reference 
; ROOBO O i Manual 
; ROO81 O in 
3 ao oat 0 ae 
; ROO8S O ! PFV structure definition 
; ROOBS O 
; kROO8S O ELD 
; ROOB6 O PFVSFIELDS = 
; kROO87 O SET 
; kROO8B O P P 
3 ies 44 4 PFVSR_PFV = (0,0,0.0], ! Field to address the entire structure. 
; ROO91 O PF VSA_BUFFER = (0,0,32,0], ! Address of the user file buffer. If 
; ROO92 O ! PFVSV_RELBUF is set, this address is 
; ROO9S 0 ' relative to the PFV address, otherwise 
; ROO9S O ! it is absolute. 
; ROO9S O 
; ROO96 O 
; kOO97 O PFV$B_VERSION = (4,0,8,0], ! The version number of the PFV layout. 
; kROO9B O ' The Latest version number is defined by 
3 isp ! the symbol PFVSK_CUR_VERSION. 
; RO101 O PFV$W_FLAGS = (4,16,16,0], ! Status flags which the Run-Time Library 


— 


VAX-11 Bliss<-32 V4.0-7 Page 3 


g 3 
19° Sep-1984 2 9} 
15-Sep-1984 22:4 88 ~8255$DUA28: CPASRTL. SRC PASPFV.REQ;1 (1) 


[ 
; kO102 O ! sets ong fieers to indicate the current status ; 
; ROL 8 ! of the file : 
; kO105 O PFVS$V_VALID = (4,16,1,0], ! Buffer is valid. If this bit is set, then ; 
; RO106 0 i the remaining status bits and the file buffer ; 
; kO107 O ! itself pay be read by the compiled code. If ‘ 
; kO108 O ' clear, PAS$LOOK_AHEAD must be called to make ‘ 
; i988 8 ! the information valid. ° 
; RO111 O PFVSV_DFB = (4,17,1,0], ! Buffer is defined. If set, the last file ‘ 
; aerig 0 ; eoeres ton resulted in a ‘‘defined’’ file buffer : 
; kRO113 O : by the semantics of Pascal. If clear, the ‘ 
; RO114 O ' file buffer is ‘‘undefined’’. If PFV$V EOF DEFINED ‘ 
; = IB i is set, EOF(f) is equivalent to .NOT.~PASSV_DFB : 
; kRO117 O PFVSV_EOF_DEFINED = (4,18,1,0], ! EOF(f) is a valid test. After some file : 
; kO118 O ' peerey ions, EOF(f) is not a valid test to make. : 
; RO119 O ! If this bit is set, EOF(f) is true if and only ‘ 
; aetst ! if PASSV _DFB is clear. ; 
3 ate PFV$V_EOLN = (4,19,1,0], ! File is at end-of-Line. : 
; ROI246 O PF V$V_RELBUF = (4,27,1,0],  ! PFVSA_BUFFER address is relative to : 
; ROI25 0 ! the PFV address. If clear, the address : 
; Rose 8 ! is absolute. : 
; RO128 0 PFVSV_RELPFD = (4,28,1,0], ! PFVSA_PFD address is relative to the. : 
: sats 0 ! PFV address. If clear, the address is ; 
; kRO150 O ! absolute. : 
3 RO131 O : ; 
; Rot e6 8 PF V$V_OPEN = (4,29,1,0], ' File is open. : 
; RO134 O PFVSV_FCB_VALID = (4,30,1,0], ! This bit is set when PFVSA_FCB contains : 
; ROSS O ! the address of a valid FCB. If clear, : 
; kRO136 O ! PFVSA_FCB contains the condition code : 
; kRO137 O ' Ad the last error to occur on that 3 
; kRO138 O ! file. 3 
; kRO139 O 3 
; kRO140 O PFV$V_LOCK = (4,31,1,03, ' This is the interlock bit used by the Run-Time : 
3; RO141 QO : Library to prevent recursive 1/0 on the same : 
Bis 8 $3, 3 
; RO14Q 0 PF VSA_PFD = (8,0,32.0], ! Address of the Pascal File Descri sor : 
; RO14S QO ! (PFD). If PFVSV_RELPFD is set, t : 
; ROI4G O ! is solestes to the PFV address, ethervise 3 
3 tpt ! it is absolute. : 
; ROW“9 O PFVSA_FCB = (12,0,32,0], ! Address of the Run-Time Library's internal : 
; RO1SO0 O ! File Control Block (FCB) for this file. This : 
; &0151 0 ! field must be initially zero! the Run-Time : 
3 aoe ' Library fills it in when the file is opened. : 
; RO1S4 O PFVSL_STATUS = (12,0,32,0) 'AsS ayn oe for PFVSA_FCB : 
; RO1SS O ' if Ab FCB_VALID Ts clear, this 3 
> RO1S6 O ' field is used to store the condition ; 
; kRO1S7 O ' code of the last error to occur on this : 
; kRO1S8 O ! file when the file was not open. ; 


Sees Ce Se ee ee Se Se Se teas 


Sep-1 18:43 VAX 
Wfcseoc196e QU:IBG va 
TES; 
LITERAL 
PF SK _CUR_VERSION = 0 ' Current version of PFV 
PFVSK-SIZE = 16; i Size of PFV in bytes 


CRO 
SPASSPFV_FILE_VARIABLE = BLOCK CPFVSK_SIZE, BYTE] FIELD (PFVSFIELDS) %; 
! End of file PASPFV.REQ 
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; 170 
; oi74 8 REQUIRE "RTLIN:PASPFD'; ! Pascal File Descriptor (PFD$) definitions 
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! Pascal File Descriptor (PFD$) field definitions 
File: PASPFD.REQ, Edit: SBL1002 


LRA ARREARS 


LRA ERE 


'¢ 


i 
' Author: 


1-001 = Original. 
1-002 - Reserve attributes bits 7 and 8 for Elan Pascal. 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


re SOF TWARE i. FURNISHED THe TER A Hs OF ah MAY BE USED AND gt LA 


PRO 
NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


TRANSFERRED. 


THE gt re IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


Steven B. Lionel, 1-April-1981 
SBL 1-April-1981 


PFDSV_HEAP which has never been used. SBL 8- Aug-19 


AX-1 
$255$DUA 
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® 
« 
® 
* 
® 
*® 
* 
*® 
* 
® 
*® 
® 
® 
® 
*® 
* 
* 
*® 
*® 
* 


This supersedes 
83 


! The Pascal File Descriptor contains compile-time determinable information 


‘ about a VAX-11 P 


Pascal file. 


s Support Procedures Reference Manual. 


! PFD structure definition 


For more information, see the VAX-11 Language 


FIELD 
PFDSFIELDS = 
SET 
PFDS$R_PFD = [(0,0,0,0), ! Field to address the entire structure. 
PFDSA_KDB = (0,0,32,0], : Relat tye pointer to the Key Descriptor 
' Block (KD) The address 1s relative to 
' the start of the PFD. If zero, there is 
! no KDB. 
PFD$W_ATTRIB = (4,0,16,0), ! This field contoteg compile-time determineable 
‘ attributes of the file. 
PFDSV_TEXT = (4,0,1,0], ! The file is a lt. TEXT. 
PFD$V_BINARY = 41.1.0). ! The file is of a menevorying t binary type. 
PFDS$V_VARYING = (4,2,1,0], ' The file is a file of VARYI 
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won 
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DBDDABDADAAAADAADAADWAAAD 
jelolejleleolelololeololololololololo) 


SBE EEN 


pee een wl ole al ela lalalelolelolelelelelelelelelelelolelelelelelelololelolalololo) 


LITERAL 


MACRO 


PFD$V_NOREAD 
PFDSV_NOWRITE 
PFDSVIEXTERN 


PFDSV_STATIC 


PFDSL_LENGTH 


PFDST_NAME 


PFDS$B_NAME1 


PF D$B_NAME8 
TES; 


PFDSK_SIZE 


te | oe | | oe) ee) | | 


C12,0,8,0), 


WS -e es 
OVDONOULEW 
a So Se ae ee 
COoooo°o°oo 
ses es © & & & & 
0.0009 00 09 CO CD CD 


13; 


SPASSPFD_FILE_DESCRIPTOR 


! End of file PASPFD.REQ 


ses + & & & & & 


Ooooo°o°oo 


7 fs 8s & & & & 
eee 


LyLIytobylLotolits 


= BLOCK C, BYTE) 


if: 


4 

Sep-1984 VAX-11 Bliss-32 V 
-Sep-1984 ‘43 -$255$D BABS CPA 
The file variable is declared WRIT be te 
The file variable is declared READO 


The file is external; i.e. it has conn declared 
at the outermost block level. 

The file is not declared in a local © + ppeent 
Also used for files e, located with 

Reserved to VAX Elan Pascal 

Reserved to VAX Elan Pascal 


The Len “ of the file OST rENG type in bytes. 
If PFDSV_TEXT is set, PF LENGTH must be 1. 

If PEDSV" “VARYING is set, this value includes the 
length word. 


A counted ASCII aerres containing the name of 
the file variable e string length is in 
the first byte. 


Byte 1 of file name 
Byte 2 of file name 
Byte 3 of file name 
Byte 4 of file name 
Byte 5 of file name 
Byte 6 of file name 
Byte 7 of file name 
Byte 8 of file name 
End of PFD 


Base size of PFD in bytes 

with a zero-length file 

variable name. A PFD is only 
allocated in PASSFV INPUT, 

PASSFV V OUTPUT. _PASSREADY 

and PASS$WRIT 


FIELD (PFDSFIELDS) %; 


iy Page 
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REQUIRE "RTLIN:PASKDB'; ! Key Descriptor Block (KDB$) definitions 


————__—_-----— 


— 


18- sep-19 & gi: 


-Sep-1984 "$35 4g $DUA 


; kRO273 0 ! Pascal Key Descriptor Block (KDB$) field definitions 

: ~ a 8 File: PASKDB.REQ, Edit: S8L1001 

: RO f§ 8 VeRO 
> RO27 ;e 

: ROST8 0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * 
3 tts 0 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; RSet 8 7 ALL RIGHTS RESERVED. * 
3 ‘* * 
3 ANT 0 's THIS SOFTWARE i$ FURNISHED ,UNDER A LICENSE AND MAY BE USED AND coPreD © 
; RO28S O '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; RO2B4 O '® INCLUSION OF THE ABOVE tpt NOTICE. THIS SOFT WARE OR ANY OTHER * 
; RO28S 0 's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; RO286 0 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
5 Rees 4 : * TRANSFERRED. * 
5 '® e 
; RO289 O 'w THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; kRO290 0 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; wit s4 8 * CORPORATION. * 
3 '* ® 
; kRO293 0 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; RO294 0 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; RO295 O 'e * 
> RO296 O '® * 
4 RO297 0 LRA RARE AREER RARER EEE ATER ATER AAAAAAEEAAE RRA EE 
; kO298 O : 

; RO299 O ! Author: Steven B. Lionel, 1-April-1981 

; RO300 0 : 

; kRO301 O ! 1-001 = Original. SBL 1-April-1981 

; kRO302 O l—< 

; kO303 0 

; RO304 0 ‘+ 

; kRO305 O i The Key Descriptor Block describes the key fields for a record of an 

; RO306 O } _indexed organization file. 

; kRO307 O 

; RO30B8 O 

; kRO309 O !' KDB structure definition 

; RO310 O 

; RO311 O ELD 

; kRO312 O KDBSFIELDS = 

; kRO313 0 SET 

; RO314 O 

; RO315 O KDB$B_ COUNT = (0,0,8.0], ' Count of key definitions 

; RO316 0 ! to follow. 

Py RO31, 0 

; RO318 O '¢ 

; RO319 O i The following definitions are relative to a single key definition, 
; kRO320 O i which occupies two longwords. 

; RO321 O i. 

; Rosse 0 

; kRO323 0 KDBSB_KEY NUMBER = [0,0,8 9. ' Key number (O=primary 

; RO324 O KDBS8_0 TYPE = 0.8 6 ! Datatype code perce ”DTYPE_ x) 
> RO325 0 KDB$B~ SIZE = (0:16 §.04. i Size of key in bytes” 

: R036 0 KDBSLOFFSET = [4:0,$2:0) i Offset of key in bytes 

; kRO328 0 TES; ! End of KDB 

; kRO329 0 


Liss-32 V4.0-742 


A28: 


8: CPASRTL. SRC JPASKDB.REQ; 1 


Page 
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ech) 


—_ 


| 1$-Se0-1986 01:18:45 
; RO 


oe 0 

: RO331 MACRO 

: RO é SPASSKDB_KEY_DESCRIPTOR = BLOCK C, BYTE] FIELD (KDBSFIELDS) %; 
: RO ! End of file PASKDB.REQ 
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CPASRTL.SRCJPASKDB.REQ; 1 


F 4 
16-Sep-1984 01:18:43 VAX-11 Bliss<-32 V4.0-74 Page 11. 
1$-38871387 93: 1832 VS USSSDUADSSLPASRTL SRC PASLIB.REQ;1 . (1) 
; 9339 
8 nets 8 REQUIRE "RTLML:PASFCB’; ! File Control Block (FCB$) definitions 


1B-se son= 198% 9}:) VAX-11 Bliss-32 V Page 12 
| -$ep-1984 22:4 ‘69 _$255$DUA28: CPasetie Ob) PASFCB.R32;1 (1) 
| , RO 7 8 ' (ARAARAAAAAAASZALARLAAERAARAREAEEERE RRR RARE ASERASE RARER EEE RE REE E EERE EEE ER EEE EEE EEE EERE EEE EEE EEE EEE ECE CC CREE ESA AEAESALEE SRY 
EF RO338 i Created 15-SEP-1984 22:49:08 by VAX~-11 SDL v2.0 Source: 15-SEP-1984 22:48:23 _$255$DUA28:CPASRTL.SRCIJPASF 
: RO 9 0 ' CCeeeeceerrererreereereneerreraaserereceeceeeeceeeeeeeeeceseeceeeeeerereeceeececeaeeaeteneereeeeeesereteseeesatees 
: RO340 0 

: RO341 0 

: RO é 0 ‘eee MODULE SFCBDEF IDENT 1-006 *** 

> = RO34 literal FCBSK_CC_NULL = 0; 

> RO344 Literal FCBSK-~CC-LFNL = 1; 

: RO345 Literal FCBSK-CC-NLCR = 36096: 

; RO § 0 Literal FCBSK_CC Lee = 36097; 

; RO 0 Literal FCBSK-BLA = 

: RO 48 0 FIELD FCB_ OTROPTSFIECDSET = 

> RO349 0 SET 

: RO350 0 FCBSL_QUEUE_FLINK = [-68,0,32,0] , 

: RO351 0 FCBSL~QUEUE BLINK = [-64.0,32.0) 

; RO35¢ 0 FCBSL-RECORD NUMBER = 336 0,$2,05 , 

> RO353 0 FCB BSA “KEY TYPES = [-52,0,30,0] . 

: RO354 0 FCBSL-NKEYS = [-48,0 : 63: 

: RO35S O FCB CmSTA Tus = (-44,6,32,0] 

: RO356 0 FCBSL~COMPONENT = (-40,0,32,0) , 

: ROB57 0 FCBSA-PFV = [-36,0 32 63 

: RO35B 0 FCBSL-LINELIMIT = €-32,0,82,0) , 

: RO359 O FCBSA_PFD = [-28,0,32,0] , 

: RO360 0 FCBS$A_RECORD_BEG = ~g4 40.32.03 : 

7 RO361 0 CBSA_RECORD_CUR = -_ 0,0,32,0] ’ 

e ite 0 FCB A_RECORD_END = -16,0,32,0) * 

: RO364 0 FCBSW_ATTRYB = (-8,0,16.0) , 

: RO365 0 Sv_TEXT = [-8.0.1,0) 

: RO366 0 FCBSV"BINARY = [-8.-1.1,0) , 

: RO367 0 FCBSV-VARYING = (-8,2,1,0]', 

: RO368 0 FCBSV-NOREAD = (-8,5,1,0) , 

: RO369 0 FCBSV-NOWRITE = [-8,4,1,0]', 

: RO370 0 FCBSVEXTERN = £-8.3.1.63 ‘ 

> RO371 0 FCBSV-STATIC = (-8.6.1.0) . 

: RO372 0 FCBSV"HEAP = [-8,7.1.05 

: RO373 0 FCBSR_ATTRIB_BITS = (-8.0,16,0) , 

> RO374 0 FCBSR_ATTRIB_OVERLAP = (-8,6,16,0] , 

> RO37S5 0 FCB$W~PROMPT-CC = [-6,0,16,0) , 

> RO376 0 FCBSL_OPTIONS! = (-4,6,32,0) 

> RO377 0 FCBSV_ SEQUENTIAL =(-4,6,1,6) , 

: RO378 0 FCBSVDIRECT = (-4,1,1.05 . 

° RO379 0 FCBSV_KEYED = 4.2.1.6) ° 

> RO380 0 FCBSV-READ_ONLY = [-4.3,1 0) , 

: R038; 0 FCBSV~OLD FILE = f-4,4 1,63 . 

; RO382 0 FCBSV~SAVE = [-4,5.1.03 

: RO383 0 FCBSV~DELETE = (-4.6,1,0) , 

; RO384 0 FCBSV~PRINT = (-4,7,1,0) , 

: RO38S 0 FCBSV~SUBMIT = (-4,8 1,0) 

> RO 0 FCBSV"USER_ACTION = [-4,9,1,0] , 

> RO387 0 FCBSV“LAZY~= (-4,10,1,0) . 

; RO38B8 0 FCBSV-INSPECTION = (-4,11:1,0) , 

+ RO389 0 FCBSV-GENERATION = [-4.12.1.0] . 

> R0390 0 FCBSV-EOF = [-4,13,1,0) 

> R0391 FCBSV~PROMPT ENABLE = [-4.14,1,0] , 
: RO392 0 F CBSV~PART IAL LINE = (-4,15,1,6] . 
: RO393 0 FCBSV“LOCATE = (-4,16,1,0) . 
| 
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19-Sep-1984 01:18:43 = VAX-11 Bliss-32 V4.0-7 e 14 
if Sep-19 4 3} 18:32 VS35S$DUA8: SEPASRTL. SRC PASLIB.REQ;1 es (1) 
~— ie Sha BLOCK = BLOCK CFCBSK_BLN, BYTE] 
FIELD TRUCTSFIELDSET) 2; 


'¢ 
i Number of bytes a Sneeaee for a file control block. Includes FCB, RAB, 
‘ FAB and NAM bloc 


CITERA 
PASSK _FILE_DYN_BLN = FCBSK_BLN+RABS$C_BLN¢+FABSC_BLN+NAMSC_BLN; 


REQUIRE "RTLIN:PASOPEDEF'; ! OPEN keyword symbol definitions 


Be Se Be Be Oe Oe Be Se Oe Be Be Se Ge Se Se Se Se Se Ge Se FH SH Se Se Be Be Se Se Se Be Se ws Oe Se Se Se Se Se Oe Se Be Se Se Oe Se Se Se Se Se Se Oe Se Oe SH Oe Ge ee 


SEEFES 


3 
WN" O OONOUFS WN 


CDOCSOOSCOOOSOOOSOCOSOOCOCOOSSSOOSOSOSSSOSCSOOSCOSOOOCOOCOOCOCOCOOOOOOOCOOOOOCOOOOOo 


iaseor}98¢ 94:18:4 


‘ nwa bees REQ = Pascal OPEN keyword value definitions. 
i Version 1-003, Edit: SBL1003 


'¢ 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE is FURNISHED nee A LICENSE AND MAY BE USED AND COPIED 
ONL ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND ve THE 
Shei OF THE ABOVE Spt NOTICE. T OF TWA ARE 

COPIES THEREOF wy NOT BE PROVIDED OR OTHERW OMADE AVAILABLE TO ANY 
faatekate” O TITLE TO AND OWNERSHIP O SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 
eeRPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR: Steven B. Lionel 


cor HISTORY: 
1-001 - Original. SBL Inger tt= 1989 
1-002 = Reserve codes 30-3 


to Elan Pascal. Get rid of masks, PROMPT 
keywords. Add stream recordtypes. SBL 8-Aug-1983 


1-003 - Reserve codes 41-42 to Elan Pascal. SBL 19-Dec-1983 


! Definitions of keyword codes used by PASSOPEN and PASSCLOSE. 
a Masks are used to indicate that the keyword has already been seen. 


LITERAL 


PASSK_OPEKEYLO = 
PASSK_F ILE_NAME = 
PASSK_DEFAULT_FILE_NAME 
PASSK_HISTORY 
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PAS$K_HISTORY_UNKNOWN 
PAS$K_HISTORY_READONLY 


PASSK_RECORD_LENGTH 


PASS$K_ACCESS_METHOD 
PAS$K_ACCESS_METHOD_SEQUENT IAL 
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'¢ 


i The followin 


PASSK_ACCESS_METHOD_DIRECT 
PASSK~ACCESS METHOD ~KEYED 
PASSK_RECORD_TYPE 
PAS$K-RECORD-TYPE_F IXED 
PAS$K~RECORD-TYPE VARIABLE 
PASSK—RECORD- TYPE STREAM 
ASSK-RECORD-TYPE-STREAM_CR 
PASSK~RECORD-TYPE-STREAM-LF 
PASSK_CARRIAGE_CONTROL 
PASSK~CARRIAGE~CONTROL_LIST 
PAS$K~ CARRIAGE ~ CONTROL —F ORTRAN 
PAS$K~ CARRIAGE ~ CONTROL ~NONE 
PAS$K_ORGANI ZATION 
PASS$K~ORGANI ZATION_ SEQUENTIAL 
PAS$K~ORGANI ZATION-RELATIVE 
PAS$K~ORGANI ZATION~ INDEXED 
PASSK_DISPOSITION 
PAS$K~DISPOSITION_SAVE 
PASSK_D1SPOSITION-DELETE 
PAS$K-D1ISPOSITION-PRINT 
PAS$K~D1ISPOSITION-PRINT_DELETE 
PAS$K—D1ISPOS1TION~SUBM 
PAS3K~D1SPOSITION~SUBMIT_DELETE 


PAS$K_ERROR 
PAS$K_USER_ACTION 


PAS$K_SHARING 
PAS$K_SHARING_NONE 
PAS$K_SHARING_READONLY 
PAS$K_SHARING_READWRITE 


i keyword value should be used. 


CONNECT CIRCUIT 
aecene” CIRCUIT 


BUFFER SIZE 
T1G00uS 
EXTEND SIZE 
FILE _STZE 


TRUNCATE 
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PAS$K_OPEKEYHI 
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keyword values are reserved to VAX Elan Pascal. 
' of these features are implemented in VAX-11 Pascal, the corresponding 
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30. ' Reserved 
aa ' Reserved 
32, ' Reserved 
33, ' Reserved 
3¢° ' Reserved 
De ' Reserved 
38. ' Reserved 
 - ' Reserved 
41, ' Reserved 
42, ' Reserved 
pase RECORD_TYPE_STREAM_LF; 


' supported by VAX-11 Pascal 


If any 
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' Useful macros 


REQUIRE *RTLIN:PASMACROS'; 
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15-Sep-1984 22:4 
: Macros for Pascal Run-Time Library 
; File: PASMACROS.REQ, Edit: SBL100 


HSI RSE 8 


1 


OPPS SSSLSLOLS II OT ESIC TT ST TE TT TST TP Te Tee TTC T ICCC CTC c iret Titi ririritiitiiy 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* vaabisteente” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
® . 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJE 
:* AND SHOULD NOT BE CONSTRUED AS A COMM 
!® CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


@eepeeeeneeneeneeeenenennane 


Seneeeeeeerant PARR RARASLESLSALSASES AREAS ESLER ESAS ESE SEES SESE SES ESSEC SSS 
4 


! Author: Steven B. Lionel, 1-April-1981 


: 1-001 - Original. SBL 1-April-1981_ 
1-902 - Change SPASS$RMS_OP so that it doesn't loop on RMS$_ACT unless the 
file is on a disk device. SBL 29-July-19 
1-003 - Make that a disk or tape device. SBL 29-July-1982 


'¢ 
Macro to signal a Pascal bugcheck. 


MACRO 
SPASSBUGCHECK (bugname) = 
BEGIN 


PASSS$BUGCHECK (bugname) ; 

RETURN 0; 
'¢ 
: Macro to signal an 1/0 error. The source code specifies the first 
: message as a PAS$_xxx symbol. This macro changes it to a PAS$K_xxx 


! symbol to result 7m shorter code. If it is desired to change back, 
: only this macro need be modified. 


MACRO 
le 


i Internal macro MOD SIG_NAME takes as its argument a sequence 
! of characters which is the exploded PAS$_xxx signal name and returns 
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the equivalent name PASSK_xxx. It is only used by $SPAS$IO_ERROR. 


MOD_SIG_NAME (cP, ALES a6 
“ZNARME ('PASSK_' SSERAINING) %, 


$PAS$IO — (signame) = 


PASS$S1GNAL (PFV CPFVS$R_PFV], MOD_SIG_NAME (ZEXPLODE(signame)) 
Fe YNULL (ZREMAININGY 


ZELSE 
» BREMAINING 
4FI 


RETURN 0; 
END %; 
+ 
Macro to do an RMS operation with retry for RMS$_ACT if a disk or tape device. 


ACRO 
SPASSRMS_OP (rms_op) = 
BEGIN 


SSSTATUS; 
DO S$STATUS = (rms_o : UNTIL (.$$STATUS OR (.$$STATUS NEQ RMS$_ACT) 
OR NOT .FCB CFCBS$V_FODJ); 
-SS$SSTATUS 
END %; 
+ 
Structure definitions used to declare the FAB and NAM as being offset from 
FCB. To use, make the following declarations: 


BIND 
FAB = FCB: REF S$SPASS$FAB_FCB_STRUCT, 
NAM = FCB: REF $PASS$SNAM_FCB_STRUCT; 


STRUCTURE 
SPASSFAB_FCB_STRUCT (CO, P, S, EJ = 


CFABSC BLN 
(SPASS$FAB_FCB_STRUCT+RABSC_BLN+O)<P,S,E>, 
SPASSNAM FCB STRUCT Co, P, S, EJ = 
(SPASSRAM_FC8_STRUCT+RABSC_BLN¢+F ABSC_BLN¢O)<P,S,E>; 
! End of file PASMACROS.REQ 
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15-Sep-1984 22:48:14 PASRTL.SRCJPASBUGCOD.REQ; 1 (1). 
; RO648 0 ' Bugcheck codes for Pascal RuneT ine Library ; 
3 Roe} 8 File: PASBUGCOD.REQ, Edit: $B8L1001 : 
: R0651 0 i eeeeeeeeeeeeeeeeee eee teed eee eeeeeeeeeeeeeeeeeeeeeeeeeretereeeeeeeeereeeteee b 
3 Ro 26 0 '® * : 
; kRO655 0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
; RO654 O '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. , : 
3 wore? 8 ? ALL RIGHTS RESERVED * : 
P4 .* * $ 
; kRO657 O '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; kO658 0 '® ONLY IN ACCORDANCE WITH THE TERM UCH LICENSE AND WITH THE * 3 
; RO6S9 O 'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI RE OR + ; 
; R0660 0 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
; RO0661 O 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * “ 
3 nee 8 * TRANSFERRED. * : 
: ie * $ 
; RO664 0 ‘* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; RO665 O '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; aoees 3 :* CORPORATION. * ; 
3 '® * 5 
; RO668 O '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR Paarl OF ITS * : 
; RO669 O '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITA * : 
; RO0670 O '® . 3 
; kRO0671 O ‘® * 3 
4 R0672 0 See RARER AERA AEE AERA EAE AAA AAA AERA AATEC EAA é 
; kR0673 0 ' 3 
; RO674 0 ! Author: Steven B. Lionel, 1-April-1981 ‘ 
; RO675 O : : 
; RO676 0 ! 1-001 - Original. SBL 1-April-1981 3 
: RO677 O leo : 
; RO678 O F 
; RO0679 0. Pe : 
; RO0680 0 i Bugcheck codes for PASSSBUGCHECK. These codes are used as the FAO ; 
3 ive H 8 ti parameter to the PAS$_BUGCHECK message when it is signalled. : 
; RO683 0 
; RO6B4 0 LITERAL 
; RO68S5 0 BUG_FQNOTINIT e 1, ! File srt ay wt initialized 
; RO686 0 ' PAS$S 
; RO687 0 BUG_FREEVMFAIL = 2, ' Call to  TBSFREE _VM failed 
; RO68B O ! PASSSVM 
; RO689 0 BUG_UNWINDFAIL = 3, ' Call to edger | failed 
; RO0690 O ' PASS$$IO_HANDLER 
; RO691 O BUG_BADVMSIZE = 4, ' GET_VM Of more than 65535 bytes. 
; RO692 O ' PASSSVM 
; kRO693 0 BUG_BADKEYDTP = 5; ' Bad - datatype from RMS 
; RO694 0 ' PASSOPEN2 
; RO695 0 
; R0696 0 ! End of file PASBUGCOD.REQ 
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REQUIRE "RTLIN:PASEXTERN'; 


698 0 


742 Page 24 
-REQ; (1) 
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but an address that PASS$$IO_RAANDCER uses to see if t 

an access violation was in PASSSVALIDATE_PFV. SBL ree auty® 1982 
1-006 = Add PASS$$GOTO_HANDLER and PASSSUNWIND GOTO. SBL 88-Feb-1983 
1-007 = Add PASSS$AB_KEYWD_NAME_TABLE. SBL 19-Aug-1983 


; RO699 0 1? 

; kO700 O i LINKAGE and EXTERNAL peleet tie ns for VAX=-11 Pascal Run-Time Library 

; kO701 O ! File: PASEXTERN.REQ, Edit: $BL1007 

; kRO702 O i 

; kO705 O i 

; kO704 O LRA ARERR EAE E AAA EAA EEA A ATER ETAT ETRE EERE EAE KERR e eee 
; kO705 O Ml * 
; kRO706 O '® COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
; kO707 O ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; TA 8 i. ALL RIGHTS RESERVED. * 
3 i® e 
; RO0710 8 '® THIS BS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd ba * 
3 = RO711 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; kO712 O 't INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; kO715 O '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; kRO714 QO '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: eon? 8 - TRANSFERRED. * 
3 ‘® ® 
; kO717 O '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; kO718 O '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ahs 4 _ CORPORATION. ® 
s i ® 
; kRO721 O '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; aRrs :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
5 if* ® 
; RO724 O ie * 
; kO725 O Lee e RARER REAR EAAEAARAAAA AERA AAA AAA AAA AAA AEA E RATHER AeA AAR! Ae 
; RO726 0 : 

; RO727 O ’ 

; kRO728 O ' Edit History: 

; RO729 O : 

; kO7350 O ! 1-001 = Created. SBL 1-April-1981 

; kO731 O ! 1-002 = Add PASSSEND_READ. SBL 24-May-1982 

; RO732 0 ! 1-003 - Make PASSSCLOSE WOVALUE. — SBL "28- June-1982 

; RO733 0 ! 1-004 = Delete PASSK_INVFIESPE, no longer used. SBL 2-July-1982 

; =6RO 8 } 1-005 = Add the symbol PASSSVALIDATE PFV_END. This is not . rousing 

; 0 i 

* 0 i 

° 0 i 

; 0 i 
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Define Linkages used for internal calls in the Pascal RTL support 


i In these vahagee R6 is always used to pass the PFV and R7 is always 
: used to pass the 


LINKAGE 
JSB_INIT_WRITE = 
JSB TREGISTER=6, REGISTER=7; REGISTER=7): 
NOTUSED(8,9,10,11) NOPRESERVE(2,3,4,5), 
JSB_END WR ITE = 
JSB™ (REGISTER=6, REGISTERS?) : 
NOTUSED(4,5.8,9,10,11) NOPRESERVE(2,3), 
JSB_DO_WRITE = 
JSB (REGISTER=6, REGISTER=7, REGISTER=8): 
NOTUSED (9,10,11) NOPRESERVE(2,3,4,5), 
JSB_ INIT READ = 
B TREGISTER=6, REGISTER=7; REGISTER=7): 
NOTUSED(8,9,10,11) NOPRESERVE (2, 3,4,5), 
JSB_END -READ . 
JSB (REGISTER=6, REGISTER=7) : 
NOTUSED(0,1,2,3,4,5,8,9,10,11), 
JSB -VALIDATE PFV = 
REGISTER=6; REGISTER=7): 
B Not USED(3,4,5,8,9,10,11) NOPRESERVE (2), 
JSB_READ_UTIL = 
JSB TREGISTER=6, REGISTER=7; REGISTER=4, REGISTER=5, REGISTER=7): 
SED agri) NOPRESERVE (2,3,8), 


wo te 

JSB_F 

5 "me TSTER= 6, REGISTER=7; REGISTER=7): 
NOPRE SERVE (2.3.8) NOTUSED (4,5,9,10,11), 

JSB_CLOSE_LOCAL 


ssB_d F SB : “PRESERVE (0,1) NOPRESERVE (2,3) NOTUSED (4,5,6,7,8,9,10,11), 


8,9,10,11), 


Vs 
3,REGISTER=4 
7,8,9,10,11) 


(2,3,4,6) NOTUSED (5, 
JSB_DO_wi 


WRITEV 
“JS6 (REGISTER=6 REGISTER=2,REGISTER= 
138.6 ,” PRESERVE (2,3,4,5,6) NOTUSED ( 


E 
“JSB (REGISTER= = nyt 
:8, - 


inact: 


NOPRESERVE (2,3), 


=7; REGISTER=7): 
) NOPRESERVE(2,3), 


» REGISTER=7): 
$ NOPRESERVE(2), 
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5, 
tt hei TER=6, REGISTER=7): 
dD (8,9, ne 13}  NOPRESERVE (2.3.4.5). 
CALL_VAL 


TALL 


0_READV 
“36 cosets =6, gegisrene 2,REGISTER=3, sests ieee 4; REGISTER=0, REGISTER=1): 


row ds 


H 5 
1$73ep-198¢ 22:48:30 


CALL_SAVEALL = 

CALL : PRESERVE (0,1), 
CALL_SIGNAL = 

CALL (REGISTER=6), 
CALL_OPEN = 


CALL (;REGISTER=7), 


CALL VM = 
TALL (REGISTER=6); 
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PASRTL. SRC PASEXT XTERN.REQ;1 


> RO ‘+ : 
; @ 607 i Define all globals declared in all Pascal-specific BLISS modules and ; 
; ae i. those non-BLISS modules which are referenced by BLISS modules. ‘ 
; ROB) : 
; 4 1} EXTERNAL ROUTINE ‘ 
; ROBtS ! Module PAS$BIN : 
; ROBIG PASSBIN: NOVALUE, ‘ 
; ROB1S O ‘ 
; nosis : Rodule PASSCLOSE2 ‘ 
> =ROB1 PASSCLOSE2: NOVALUE, : 
; OR PASSSCLOSE: NOVALUE ; ‘ 
; ROBI19 0 ‘ 
; RO820 0 Module PASSCVTRT : 
; ROB21 O PASSCVT_F_T, ‘ 
; ROB ¢ 0 PASSCVT_D_T, : 
> «6ROB 0 PASSCVT_G_T, ‘ 
; ROB26 0 PASSCVT_H_T, : 
> ROB25 0 ‘ 
; RO826 0 ! Module PASSEOF2 : 
; ROB27 O PASSEOF 2, . 
; ROB2B O ‘ 
3 eg 0 ! Module PASSEOLN2 : 
; RO830 0 PASSEOLN2, : 
; kRO831 O ‘ 
: R08 3s 0 : noes PASSDELETE . 
; kO833 0 PASSDELETE: NOVALUE, ; 
; ROB34 O , 
; RO835 0 ! Module PASSSFILE_UTIL : 
: 08 0 PASSSADD_FILE: NOVALUE, : 
; kRO837 O ASSSREMOVE _FILE NOVALUE , ; 
; kROB38 O PASSSPROMPT ae NOVALUE, : 
; ROB39 O SPROMPT FILE: JSB PROMPT FILE NOVALUE, . 
; RO840 0 PASSS$CLOSE Riis mov LOE, ; 
3; ROB41 O PASSCLOSE COCAL R35: JSB_CLOSE_ LOCAL NOVALUE, : 
3 ROSS 4 PASSSCLOSE_LOCAC: JSB_CCOSE_LOCAL NOVALUE, : 
; ROB44 O ! Module PASS$FIND2 : 
; RO845 O PASSFIND2: NOVALUE, . 
; ROB46 0 : 
; ROB47 O ! Module PAS$F INDK : 
; RO8B48 O PASSFINDK: NOVALUE, 3 
; ROB49 0 : 
; kRO850 0 : Roduls PASSGET 3 
; RO851 O PASSGET: NOVALUE, : 
; RO852 O PASSGET_UNLOCK: NOVALUE, . 
; kRO853 0 PASSSGET: JSB_GET NOVALUE, 3 
; ROBSS4 O 3 
; RO855 O ' Rodule PAS$GOTO 3 
; RO8S56 0 AS$GOTO: NOVALUE, 3 
3; kRO8S7 O PASsscorg HANDLER, : 
; kROBSB O PASSSUNWIND_GOTO, 3 
; RO859 O : 
3; RO860 0 ! Module PASSHALT 3 
; RO861 O PASSHALT: NOVALUE, 3 
; ROB62 0 ; 
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Module PASSHANDLER 


PASSSD0. OREADV: JSB~DO_READV NOVALUE , 


Roguie paseone he UTIL 
PAS$SS$GET_UNSIGRED: JSB_READ_UTIL, 
PASSSGET_INTEGER: JSB_READ_OTIL, 
PASSSGET_REAL: JSB_READ_UTIL, 


: R 864 PASSHANDLER, 

: ROBEG ' Module $ ,PASSHEAP 

: ROBOB PASSDISP SE2: NOVALUE, 

: R08? : PASSPELEASE?: NOVALUE, 

: ROB72 0 ! Module PASSHEX 

; ROB? 0 PASSHEX: NOVALUE, 

> ROB75 8 ' Module PAS$$10_HANDLER 

: R087 4 PAS$$10_HANDCER, 

: ROB7B 0 ' Module PASSLINELIMIT2 

; R08 79 : PASSLINELIMIT2: NOVALUE, 

: ROBB 0 ' Module PASSLOCATE 

; ROBB ( PASSLOCATE: NOVALUE, 

: RO 0 ' Module PASSLOOK AHEAD 

; ROBBS 0 PASSLOOK AHEAD: CALL_SAVEALL NOVALUE, 
3 ROSE 9 PASSSLOOR AHEAD: JSB-LOOK_AHEAD NOVALUE, 
: RO 0 ! Module PASS$OCT 

: ROBBS t PASSOCT: NOVALUE, 

: ROBS1 0 ! Module PASSOPENZ | 

> ROB92 0 ASSOPEN2: NOVA 

: ROB93 0 PASSSOP EN: CALL LOBEN N LUE, 

; ROB94 0 PASSSOPEN_IMPLICIT: JsB. OPEN, IMPLICIT NOVALUE, 
: ROB96 0 ! Module PAS$SPAGE2 

: R089 0 PASS$PAGE2: NOVALUE, 

: ROB99 0 ' Module PAS$RAB 

: R090 : PASSRAB, 

: RO902 O ! Module PAS$READ_BOOLEAN 

+ RO903 0 PASSREAD_BOOLEAN, 

3 nome 0 PASSREADY BOOLEAN, 

; 0906 6 t Module PASSREAD_CHAR 

o RO90; PASS$SR READ CHAR 

: RO9O8 0 PASSREADO Cenak, 

> RO910 $ Module SaPASSREADLNZ 

> RO911 0 PASSREADLN 

: RO912 O PASSSINIT READ: aSB CrMIT READ NOVALUE, 
3 RO91 8 PASSSEND_READ: JSB_END_READ NOVALUE, 

; 0 

: 0 

: 0 


Be Se Oe Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Ge Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Seas Se Se Seas Fe Se Se Se Se seas 
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SHOBOOOOOOD 


PASSSGET_ENUMERATED: JSB_READ_UTIL, 


Module PASSREAD_ ENUMERATED 
PASSREAD_ENUMERAT 
PASSREADV_ENUMERATED, 


Module PASSREAD_INTEGER 
PASSREAD_INTEGER 
PASSREADO_INTEGER, 


Module PASSREAD_REAL_D 
PASSREAD _REALD: CALL_VALO1 NOVALUE 
PASSREADV_REAC_D: CALC_VALO1 NOVALUE, 


Module PASSREAD_REAL_F 
PASSREAD_REAL~F 
PASSREADV_REAL_F, 


Module PASSREAD_REAL_G 
PASSREAD_REALG: CALL_VALO1 NOVALUE 
PASSREADV_REAC_G: CALC_VALO1 NOVALUE, 


Module PASSREAD_REAL_H 
PASSREAD_REAL-H: NOVALUE 
PASSREADV_REAL_H: NOVALUE, 


Module PASSREAD_STRING1 
PASSREAD_STRING1: NOVALUE, 


Module PASSREAD_STRING 
PASSREAD_ STRING: NOVALUE, 
PASSREADV_STRING: NOVALUE, 


Module PASS$READ_UNSIGNED 
PASSREAD_ UNSIGNED, 
PASSREADQ_UNSIGNED, 


Module PASSREAD_VARYING 
PASSREAD VARYING: NOVALUE 
PASSREADV_VARYING: NOVALUE, 


Modu'e PASSRESET2 
PASSRESET2: NOVALUE, 


Module PASSRESETK 
PASSRESETK: NOVALUE, 


Module PASSREWRITE2 
PASSREWRITE2: NOVALUE, 


Module PAS$$S1GNAL 
PAS$SSSIGNAL: CALL_SIGNAL NOVALUE, 
PASSSBUGCHECK: NOVALUE, 


Module PASSSTATUS 
PASSSTATUS, 


—OOONOUESWN OO 
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Module PASSTRUNCATE 


; RO978 PASSTRUNCATE: NOVALUE, 

; RO979 

; kO980 ' Module PASSUFB 

; 94 13 

3; ROD ' Module PASSUNLOCK 

> RO984 0 PASSUNLOCK: NOVALUE, 

; kO98S O 

; kRO9B6 O ' Module PASSUPDATE 

; RO987 O PASSUPDATE: NOVALUE, 

; kO98B O 

; RO989 O ! Module PAS$SVALIDATE_PFV 

; R0990 9 PASSS$VALIDATE_PFV: JSB_VALIDATE_PFV NOVALUE, 

; kO992 O ! noeie PASSVM 

3 ROO93 0 PASSSGET_VM: CALL_VM 

: RO994 0 PASSSFREE_VM: NOVALUE, 

; RO99S O 

3 RO996 0 ' Module PASSURITE _BIN 

; RO997 O PASSWRITE_ BIN: NOVALUE 

: RO99B 0 PASSWRITEV_BIN: NOVALUE, 

; kROOSD O 

; R1000 0 ! Module PAS$SWRITE_BOOLEAN 

; R1001 0 PASSWRITE_BOOLEAN: NOVALUE 

: R100 2 PASSURITED “BOOLEAN: NOVALUE, 

: R1006 0 ! Module PAS$WRITE_CHAR 

: R1005 0 PASSWRITE_ CHAR: NOVALUE, 

; 81006 S PASSWRITEQ_CHAR: NOVALUE, 
; R1008 O ! Module PAS$SWRITE_ENUMERATED | 
; R1009 0 PASSWRITE ENUMERATED: NOVALUE, 
: R1019 8 PASSURITED ENUMERATED: NOVALUE, | 
: RIDle 0 ' Module PASSURITE _HEX 
3 R1013 0 PAS$SWRITE_HEX: NOVALUE, 
: mitts 8 PASSWRITEQ_HEX: NOVALUE, 
: R1016 0 ' Module PASSURITE INTEGER 
; R1017 0 PASSWRITE INTEGER: NOVALUE 
: Ri018 0 PASSWRITEV_INTEGER: NOVALUE, | 
: 81920 0 ' Module PASSURITE OCT 

3 R102, 0 PAS$SWRITE_OCT: “NOVALUE, 

: Rides 8 PASSURITED. OCT: NOVALUE, 

3; R1024 0 ' Module PASSURITE REALE_D 
: R1025 0 PASSWRITE_REALE_D: NOVALUE 
: R1026 é PASSWRITEV_REALE_D: NOVALUE, 

: R1028 0 ' Module PASSURITE REALE _F 

: 4494 0 PASSWRITE_REALE_F: NOVALUE 

: 1030 : PASSWRITEV_REALE_F: NOVALUE, 

: R1058 0 ' Module PAS$SWRITE_REALE _G 

> R1033 0 PASSWRITE_REALE_G: NOVALUE, 
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PASSWRITE_UNSIGNED: NOVALUE 
PAS$SWRITEQ_UNSIGNED: NOVALUE, 


Module PASS$WRITE_VARYING 
PASSWRITE_ VARYING: NOVALUE 
PASSWRITEV_VARYING: NOVALUE; 

EXTERNAL 


! Module PASSFV_INPUT 
PASSFV_INPUT: SPASSPFV_FILE_VARIABLE WEAK, 


! Module PASS$SFV_OUTPUT 
PASSFV_OUTPOT: SPASSPFV_FILE_VARIABLE WEAK, 


! Module PASSOPEN2 
PASSS$GV_INPUT_OPENED: BYTE, 


: R10 ‘ 9 PASSWRITEV_REALE_G: NOVALUE, 
; kR1036 0 ' Module PASSWRITE_REALE_H 

; R1037 O PASSWRITE_REALE_H: NOVALUE 

: R10 : ‘ PASSWRITEV_REALE_H: NOVALUE, 
; R1060 0 ! Module PASSWRITE_REALF_D 

3 R1061 0 PASSWRITE_REALF_D: NOVALUE 

: 104g 0 PASSWRITEV_REALF_D: NOVALUE, 
3 R10464 0 ! Module PASSWRITE_REALF_D1 

: Rie? 8 PASSWRITE_REALF_D1: RNOVALUE, 
: R1047 0 ' Module PASS$SWRITE_REALF_F 

: R10468 O PASSWRITE_REALF_F: NOVALUE 

: 1049 ‘ PASSWRITEV_REALF_F: NOVALUE, 
3 R1051 O ! Module PASSWRITE_REALF _F1 

: R109 8 PASSWRITE_REALF_F1: ROVALUE, 
3 R1054 0 ' Module PASSWRITE_REALF _G 

; kR1055 0 PASSWRITE_REALF_G: NOVALUE 

: 1096 ‘ PASSWRITEV_REALF_G: NOVALUE, 
3 R1058 0 ' Module PAS$SWRITE_REALF_F 

; R1059 O PASSWRITE_REALF_H: NOVALUE, 
3 Ri069 4 PASSWRITEV_REALF_H: NOVALUE, 
: R1068 0 ' Module PASS$SWRITE STRING 

: R1063 0 PASSWRITE STRING: NOVALUE, 

: R106 4 PASSWRITEV_STRING: NOVALUE, 
; R1066 0 ' Module PAS$WRITELN2 

: R1067 0 PASSWRITELN2: NOVALUE 

> R1068 0 PASSSWRITELN: JSB_WRITELN NOVALUE, 
: R1069 O PASSSINIT_ WRITE: JSB_INIT_WRITE NOVALUE, 
z k1070 0 PASSSEND _QRITE: JSB_END_WRITE NOVALUE, 
: 4 ta 9 PASSS$DO_QRITEV: JSB_DO_ORITEV NOVALUE, 
: R1073 6 ' Module PAS$WRITE_UNSIGNED 

3 0 

3 0 

3 0 

3 0 

Pr} 0 

; 0 

0 

s 0 

3 0 

3 0 

3 0 

; 0 

5 0 

3 0 

; 0 

: 0 


————— 
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i sto 19 33:28:30 
PASSSGV_OUTPUT OPENED: BYTE 


PASSSAB_KEYWD_RAME_TABLE: VECTOR CPASSK_OPEKEYHI+1, 


! Module PASSREAD_ BOOLEAN 
PASS$GR_BOOLEAN_PETD: VECTOR (4, LONG); 


BYTE], 


EXTERNAL 
Nmodule PASSSVALIDATE_PFV 
PASSSVALIDATE_PFV_END; 


EXTERNAL LITERAL 
: MOP ASESK RSCv oT 


' Not a routine! 


st 
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Define non=Pascal routines called by Pascal RTL. 


: 
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; Define condition codes used by Pascal RTL routines. 


EXTERNAL LITERAL 


! Errors signalled with SPAS$IO_ERROR 


UNSIGNED 
UNSIGNED 
UNSIGNED 
D 
D 
D 
D 
D 
D 
D 
D 
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D 
D 
D 
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D 
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D 
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15-Sep-1984 22:48:34 $255 $DUA ADB CPASMTLS She PASLIB.REQ;1 (1) 
3; ees ® 
; 1226 QO + 
3 } 4 8 Declare codes for unwind actions for PAS$$IO_HANDLER. 
: 1229 0 
>; 1230 0 LITERA 
5 1231 0 PASSK -UNWIND_NOP = 0, ! Do neshio 
3 1$36 8 PASSK_UNWIND_UNLOCK = 1; ! Unlock file 
: 1582 0 ! End of file PASLIB.REQ 
: Library Statistics 
: eecceece Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 4 0 581 00:01.0 
: COMMAND QUALIFIERS 
; BLISS/LIBRARY=LIB$:/LIST=LIS$:/SOURCE=REQUIRE SRC$:PASLIB 
; Run Time: 00:11.5 


; Elapsed Time: 00:52.3 

: Lines/CPU Min: 64 

; Lexemes/CPU-Min: 23333 

; Memory Used: 119 pages 

; Library Precompilation Complete 


=> | 


ENT CORPORATION 
ND PROPRIETARY | 
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